home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / c++ / NCTDiscWriter2.exe / {app} / MS VB 6.0 Samples / TestVBAudioCDWriter / TestVBAudioCDWriter.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-04-15  |  22.5 KB  |  697 lines

  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form frmTestVBAudioCDWriter 
  5.    Caption         =   "TestVBAudioCDWriter"
  6.    ClientHeight    =   6900
  7.    ClientLeft      =   60
  8.    ClientTop       =   630
  9.    ClientWidth     =   8850
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   6900
  13.    ScaleWidth      =   8850
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin MSComctlLib.StatusBar stBarAudioWriter 
  16.       Align           =   2  'Align Bottom
  17.       Height          =   285
  18.       Left            =   0
  19.       TabIndex        =   6
  20.       Top             =   6615
  21.       Width           =   8850
  22.       _ExtentX        =   15610
  23.       _ExtentY        =   503
  24.       _Version        =   393216
  25.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  26.          NumPanels       =   5
  27.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  28.             Object.Width           =   3246
  29.             MinWidth        =   3246
  30.             Text            =   "CD-RW"
  31.             TextSave        =   "CD-RW"
  32.             Object.ToolTipText     =   "Disc Type"
  33.          EndProperty
  34.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  35.             Object.Width           =   2011
  36.             MinWidth        =   2011
  37.             Text            =   "Open"
  38.             TextSave        =   "Open"
  39.             Object.ToolTipText     =   "Disk Status"
  40.          EndProperty
  41.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  42.             Alignment       =   2
  43.             Object.Width           =   3246
  44.             MinWidth        =   3246
  45.             Text            =   "50.000Mb"
  46.             TextSave        =   "50.000Mb"
  47.             Object.ToolTipText     =   "Used Space"
  48.          EndProperty
  49.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  50.             Alignment       =   2
  51.             Object.Width           =   3246
  52.             MinWidth        =   3246
  53.             Text            =   "650.000Mb"
  54.             TextSave        =   "650.000Mb"
  55.             Object.ToolTipText     =   "Estimated Used Space"
  56.          EndProperty
  57.          BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  58.             Style           =   5
  59.             Alignment       =   2
  60.             Object.Width           =   3246
  61.             MinWidth        =   3246
  62.             TextSave        =   "11:39"
  63.             Object.ToolTipText     =   "Current Time"
  64.          EndProperty
  65.       EndProperty
  66.    End
  67.    Begin MSComDlg.CommonDialog CommonDialog1 
  68.       Left            =   -390
  69.       Top             =   4560
  70.       _ExtentX        =   847
  71.       _ExtentY        =   847
  72.       _Version        =   393216
  73.    End
  74.    Begin MSComctlLib.ListView ListView1 
  75.       Height          =   2685
  76.       Left            =   180
  77.       TabIndex        =   1
  78.       ToolTipText     =   "Track To Burn List"
  79.       Top             =   2700
  80.       Width           =   8595
  81.       _ExtentX        =   15161
  82.       _ExtentY        =   4736
  83.       View            =   3
  84.       LabelEdit       =   1
  85.       LabelWrap       =   -1  'True
  86.       HideSelection   =   0   'False
  87.       OLEDragMode     =   1
  88.       OLEDropMode     =   1
  89.       FullRowSelect   =   -1  'True
  90.       _Version        =   393217
  91.       ForeColor       =   -2147483640
  92.       BackColor       =   -2147483639
  93.       BorderStyle     =   1
  94.       Appearance      =   1
  95.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  96.          Name            =   "MS Sans Serif"
  97.          Size            =   8.25
  98.          Charset         =   204
  99.          Weight          =   400
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       OLEDragMode     =   1
  105.       OLEDropMode     =   1
  106.       NumItems        =   2
  107.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  108.          Text            =   "Track"
  109.          Object.Width           =   1499
  110.       EndProperty
  111.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  112.          SubItemIndex    =   1
  113.          Text            =   "File Name - ID Tag"
  114.          Object.Width           =   13494
  115.       EndProperty
  116.    End
  117.    Begin VB.Frame frmTrackView 
  118.       Caption         =   "Track View"
  119.       Height          =   3405
  120.       Left            =   60
  121.       TabIndex        =   0
  122.       Top             =   2460
  123.       Width           =   8775
  124.       Begin VB.CommandButton WriteNowBtn 
  125.          Caption         =   "Write"
  126.          Height          =   315
  127.          Left            =   7350
  128.          TabIndex        =   18
  129.          Top             =   3000
  130.          Width           =   1365
  131.       End
  132.       Begin VB.CommandButton DeleteAllBtn 
  133.          Caption         =   "Delete All"
  134.          Height          =   315
  135.          Left            =   1230
  136.          TabIndex        =   17
  137.          Top             =   3000
  138.          Width           =   1095
  139.       End
  140.       Begin VB.CommandButton UpBtn 
  141.          Caption         =   "Up"
  142.          Height          =   315
  143.          Left            =   3450
  144.          TabIndex        =   16
  145.          Top             =   3000
  146.          Width           =   855
  147.       End
  148.       Begin VB.CommandButton DnBtn 
  149.          Caption         =   "Dn"
  150.          Height          =   315
  151.          Left            =   4350
  152.          TabIndex        =   15
  153.          Top             =   3000
  154.          Width           =   855
  155.       End
  156.       Begin VB.CommandButton DeleteBtn 
  157.          Caption         =   "Delete"
  158.          Height          =   315
  159.          Left            =   120
  160.          TabIndex        =   14
  161.          Top             =   3000
  162.          Width           =   1065
  163.       End
  164.    End
  165.    Begin VB.Frame frmEstWriteSpace 
  166.       Caption         =   "Estimated Write Space"
  167.       Height          =   675
  168.       Left            =   60
  169.       TabIndex        =   13
  170.       Top             =   5940
  171.       Width           =   8775
  172.       Begin VB.Shape shpUsedSize 
  173.          FillColor       =   &H0000FFFF&
  174.          FillStyle       =   0  'Solid
  175.          Height          =   165
  176.          Left            =   90
  177.          Top             =   330
  178.          Width           =   315
  179.       End
  180.       Begin VB.Line shpLine650Mb 
  181.          BorderColor     =   &H00FF0000&
  182.          X1              =   8130
  183.          X2              =   8130
  184.          Y1              =   300
  185.          Y2              =   510
  186.       End
  187.       Begin VB.Shape shpEstWriteSize 
  188.          FillColor       =   &H00008000&
  189.          FillStyle       =   0  'Solid
  190.          Height          =   165
  191.          Left            =   90
  192.          Top             =   330
  193.          Width           =   495
  194.       End
  195.       Begin VB.Line shpLine702Mb 
  196.          BorderColor     =   &H000000FF&
  197.          X1              =   8670
  198.          X2              =   8670
  199.          Y1              =   300
  200.          Y2              =   510
  201.       End
  202.       Begin VB.Shape shpDiscSize 
  203.          Height          =   225
  204.          Left            =   90
  205.          Top             =   300
  206.          Width           =   8595
  207.       End
  208.       Begin VB.Label Label2 
  209.          Height          =   375
  210.          Left            =   30
  211.          MousePointer    =   2  'Cross
  212.          TabIndex        =   19
  213.          ToolTipText     =   "Estimated Write Size On 650Mb or 700m disc"
  214.          Top             =   210
  215.          Width           =   8685
  216.       End
  217.    End
  218.    Begin VB.Frame frmFileView 
  219.       Caption         =   "File View"
  220.       Height          =   2355
  221.       Left            =   30
  222.       TabIndex        =   2
  223.       Top             =   60
  224.       Width           =   8775
  225.       Begin VB.CommandButton AddBtn 
  226.          Caption         =   "Add"
  227.          Height          =   315
  228.          Left            =   7800
  229.          TabIndex        =   12
  230.          Top             =   1950
  231.          Width           =   855
  232.       End
  233.       Begin VB.CheckBox chkWAV 
  234.          Caption         =   "WAV"
  235.          Height          =   225
  236.          Left            =   7800
  237.          TabIndex        =   11
  238.          Top             =   966
  239.          Value           =   1  'Checked
  240.          Width           =   825
  241.       End
  242.       Begin VB.CheckBox chkAll 
  243.          Caption         =   "All"
  244.          Height          =   225
  245.          Left            =   7800
  246.          TabIndex        =   10
  247.          Top             =   1200
  248.          Width           =   705
  249.       End
  250.       Begin VB.CheckBox chkMP3 
  251.          Caption         =   "MP3"
  252.          Height          =   225
  253.          Left            =   7800
  254.          TabIndex        =   9
  255.          Top             =   270
  256.          Value           =   1  'Checked
  257.          Width           =   735
  258.       End
  259.       Begin VB.CheckBox chkOGG 
  260.          Caption         =   "OGG"
  261.          Height          =   225
  262.          Left            =   7800
  263.          TabIndex        =   8
  264.          Top             =   502
  265.          Value           =   1  'Checked
  266.          Width           =   705
  267.       End
  268.       Begin VB.CheckBox chkWMA 
  269.          Caption         =   "WMA"
  270.          Height          =   225
  271.          Left            =   7800
  272.          TabIndex        =   7
  273.          Top             =   734
  274.          Value           =   1  'Checked
  275.          Width           =   765
  276.       End
  277.       Begin VB.FileListBox fileSelect 
  278.          Height          =   2040
  279.          Left            =   4140
  280.          MultiSelect     =   2  'Extended
  281.          Pattern         =   "*.WMA;*.OGG;*.MP3;*.WAV"
  282.          ReadOnly        =   0   'False
  283.          TabIndex        =   5
  284.          Top             =   240
  285.          Width           =   3525
  286.       End
  287.       Begin VB.DirListBox dirSelect 
  288.          Height          =   1665
  289.          Left            =   120
  290.          TabIndex        =   4
  291.          Top             =   600
  292.          Width           =   4005
  293.       End
  294.       Begin VB.DriveListBox drvSelect 
  295.          Height          =   315
  296.          Left            =   120
  297.          TabIndex        =   3
  298.          Top             =   240
  299.          Width           =   4005
  300.       End
  301.    End
  302.    Begin VB.Menu mnuFile 
  303.       Caption         =   "&File"
  304.       Begin VB.Menu mnuFileAdd 
  305.          Caption         =   "Add"
  306.          Shortcut        =   ^{INSERT}
  307.       End
  308.       Begin VB.Menu mnuFileSeparator 
  309.          Caption         =   "-"
  310.       End
  311.       Begin VB.Menu mnuFileExit 
  312.          Caption         =   "Exit"
  313.          Shortcut        =   ^X
  314.       End
  315.    End
  316.    Begin VB.Menu mnuCDRecorder 
  317.       Caption         =   "&Recorder"
  318.       Begin VB.Menu mnuCDRecorderChooseRecorder 
  319.          Caption         =   "Choose Recorder"
  320.       End
  321.       Begin VB.Menu mnuCDRecorderSetBurnMethod 
  322.          Caption         =   "Set Burn Method"
  323.          Enabled         =   0   'False
  324.       End
  325.    End
  326.    Begin VB.Menu mnuCD 
  327.       Caption         =   "&CD"
  328.       Begin VB.Menu mnuCDDiscInfo 
  329.          Caption         =   "Disc Info"
  330.       End
  331.       Begin VB.Menu mnuCDRefresh 
  332.          Caption         =   "Refresh"
  333.       End
  334.       Begin VB.Menu mnuCDErase 
  335.          Caption         =   "Erase CD-RW"
  336.       End
  337.       Begin VB.Menu mnuCDEject 
  338.          Caption         =   "Eject"
  339.       End
  340.    End
  341.    Begin VB.Menu mnuWrite 
  342.       Caption         =   "&Write"
  343.       Begin VB.Menu mnuWriteStartWrite 
  344.          Caption         =   "Start Write"
  345.       End
  346.    End
  347. Attribute VB_Name = "frmTestVBAudioCDWriter"
  348. Attribute VB_GlobalNameSpace = False
  349. Attribute VB_Creatable = False
  350. Attribute VB_PredeclaredId = True
  351. Attribute VB_Exposed = False
  352. Public driveNum As Integer
  353. Public error As Boolean
  354. Public OperationProgress As Boolean
  355. Public eraseProgress As Integer
  356. Public writeProgress As Integer
  357. Public WithEvents AudioCDWriter1 As NCTDISCWRITERLib.AudioCDWriter
  358. Attribute AudioCDWriter1.VB_VarHelpID = -1
  359. Dim fName As String
  360. Dim fNumber As Integer
  361. Dim itmX As ListItem
  362. Dim pattern As String
  363. Dim FileAsTrack(99) As String
  364. Dim FilePath(99) As String
  365. Private Sub WriteNowBtn_Click()
  366.     WriteDisc
  367. End Sub
  368. Private Sub chkAll_Click()
  369.     If chkAll.Value = 1 Then
  370.         chkWMA.Value = 1
  371.         chkWMA.Enabled = False
  372.         chkOGG.Value = 1
  373.         chkOGG.Enabled = False
  374.         chkMP3.Value = 1
  375.         chkMP3.Enabled = False
  376.         chkWAV.Value = 1
  377.         chkWAV.Enabled = False
  378.     Else
  379.         chkWMA.Enabled = True
  380.         chkOGG.Enabled = True
  381.         chkMP3.Enabled = True
  382.         chkWAV.Enabled = True
  383.     End If
  384.     SetNewPattern
  385. End Sub
  386. Private Sub chkMP3_Click()
  387.     SetNewPattern
  388. End Sub
  389. Private Sub chkWAV_Click()
  390.     SetNewPattern
  391. End Sub
  392. Private Sub chkOGG_Click()
  393.     SetNewPattern
  394. End Sub
  395. Private Sub chkWMA_Click()
  396.     SetNewPattern
  397. End Sub
  398. Private Sub dirSelect_Change()
  399.     fileSelect.Path = dirSelect.Path
  400.     fileSelect.Refresh
  401.     Me.Refresh
  402. End Sub
  403. Private Sub drvSelect_Change()
  404.     If drvSelect.Drive <> "a:" And drvSelect.Drive <> "b:" Then
  405.         dirSelect.Path = drvSelect.Drive
  406.         fileSelect.Path = dirSelect.Path
  407.     End If
  408. End Sub
  409. Private Sub Form_Load()
  410.     frmScan.Show 0, Me
  411.     frmScan.Label1.Refresh
  412.     Set AudioCDWriter1 = New NCTDISCWRITERLib.AudioCDWriter
  413.     AudioCDWriter1.DriverOpen
  414.     frmScan.Hide
  415.     If Dir(Left(GetWinDir, 2) & GetUserHomePath & "\My Documents\My Music", vbDirectory) <> "" Then
  416.         drvSelect.Drive = Left(GetWinDir, 2)
  417.         dirSelect.Path = Left(GetWinDir, 2) & GetUserHomePath & "\My Documents\My Music"
  418.         fileSelect.Path = dirSelect.Path
  419.     Else
  420.         dirSelect.Path = drvSelect.Drive
  421.     End If
  422.     fileSelect.Path = dirSelect.Path
  423.     AudioCDWriter1.driveNum = 1
  424.     Dim MaxSpeed As Integer
  425.     error = False
  426.     RefreshDiskInfo
  427.     If error = True Then
  428.         MsgBox "No CD/DVD readers or recorders found", vbOKOnly, "Scanning IDE/SCSI buses error"
  429.     End If
  430.     error = False
  431.     fNumber = 0
  432.     error = False
  433. End Sub
  434. Private Sub Form_Unload(Cancel As Integer)
  435.     AudioCDWriter1.DriverClose
  436.     Set AudioCDWriter1 = Nothing
  437. End Sub
  438. Private Sub AddFile()
  439.     Dim fileSelNum As Integer
  440.         
  441.     If fNumber > 98 Then
  442.         Exit Sub
  443.     End If
  444.         
  445.     fileSelNum = 0
  446.     Do While fileSelNum < fileSelect.ListCount
  447.         If fileSelect.Selected(fileSelNum) = True Then
  448.             fName = fileSelect.List(fileSelNum)
  449.             FileAsTrack(fNumber) = fName
  450.             FilePath(fNumber) = fileSelect.Path & "\" & fName
  451.             fNumber = fNumber + 1
  452.         End If
  453.         fileSelNum = fileSelNum + 1
  454.         If fNumber > 98 Then
  455.            MsgBox "CDDA Disc Limited with 99 Tracks!"
  456.            Exit Do
  457.         End If
  458.     Loop
  459.      
  460.     LoadTracks
  461. End Sub
  462. Private Sub DnBtn_Click()
  463.     Dim i As Integer
  464.     Dim Str As String
  465.     Dim ind As Integer
  466.     ind = ListView1.SelectedItem.Index
  467.     i = ind
  468.     If i = fNumber Then
  469.         Exit Sub
  470.     End If
  471.     i = i - 1
  472.     Str = FileAsTrack(i + 1)
  473.     FileAsTrack(i + 1) = FileAsTrack(i)
  474.     FileAsTrack(i) = Str
  475.     Str = FilePath(i + 1)
  476.     FilePath(i + 1) = FilePath(i)
  477.     FilePath(i) = Str
  478.     ListView1.ListItems.Clear
  479.     i = 0
  480.     Do While i < fNumber
  481.       Set itmX = ListView1.ListItems.Add()
  482.       itmX.Text = i + 1
  483.       itmX.SubItems(1) = FileAsTrack(i)
  484.       i = i + 1
  485.     Loop
  486.     Set itmX = ListView1.ListItems.Item(ind + 1)
  487.     itmX.Selected = True
  488. End Sub
  489. Private Sub mnuWriteStartWrite_Click()
  490.     WriteDisc
  491. End Sub
  492. Private Sub mnuCDErase_Click()
  493.     EraseDisc
  494. End Sub
  495. Private Sub mnuFileExit_Click()
  496.     Unload Me
  497. End Sub
  498. Private Sub mnuFileAdd_Click()
  499.     AddFile
  500. End Sub
  501. Private Sub AddBtn_Click()
  502.     AddFile
  503. End Sub
  504. Private Sub UpBtn_Click()
  505.     Dim i As Integer
  506.     Dim Str As String
  507.     Dim ind As Integer
  508.     ind = ListView1.SelectedItem.Index
  509.     i = ind
  510.     If i = 1 Then
  511.         Exit Sub
  512.     End If
  513.     i = i - 1
  514.     Str = FileAsTrack(i - 1)
  515.     FileAsTrack(i - 1) = FileAsTrack(i)
  516.     FileAsTrack(i) = Str
  517.     Str = FilePath(i - 1)
  518.     FilePath(i - 1) = FilePath(i)
  519.     FilePath(i) = Str
  520.     ListView1.ListItems.Clear
  521.     i = 0
  522.     Do While i < fNumber
  523.       Set itmX = ListView1.ListItems.Add()
  524.       itmX.Text = i + 1
  525.       itmX.SubItems(1) = FileAsTrack(i)
  526.       i = i + 1
  527.     Loop
  528.     Set itmX = ListView1.ListItems.Item(ind - 1)
  529.     itmX.Selected = True
  530. End Sub
  531. Private Sub DeleteBtn_Click()
  532.     Dim i As Integer
  533.     If ListView1.ListItems.Count <= 0 Then
  534.         Exit Sub
  535.     End If
  536.         
  537.     i = ListView1.SelectedItem.Index
  538.     Do While i < fNumber
  539.         If i <> 0 Then
  540.            FileAsTrack(i - 1) = FileAsTrack(i)
  541.            FilePath(i - 1) = FilePath(i)
  542.         End If
  543.         i = i + 1
  544.     Loop
  545.     fNumber = fNumber - 1
  546.     LoadTracks
  547.     shpEstWriteSize.Width = shpDiscSize.Width * ((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024 / 702)
  548.     If shpEstWriteSize.Width > shpDiscSize.Width Then
  549.         shpEstWriteSize.Width = shpDiscSize.Width
  550.     End If
  551.     stBarAudioWriter.Panels(4).Text = Format((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024, "#0.000") & " MB"
  552. End Sub
  553. Private Sub DeleteAllBtn_Click()
  554.    ListView1.ListItems.Clear
  555.    AudioCDWriter1.AudioDeleteAllItems
  556.    fNumber = 0
  557.    shpEstWriteSize.Width = shpDiscSize.Width * ((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024 / 702)
  558.    If shpEstWriteSize.Width > shpDiscSize.Width Then
  559.        shpEstWriteSize.Width = shpDiscSize.Width
  560.    End If
  561.    stBarAudioWriter.Panels(4).Text = Format((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024, "#0.000") & " MB"
  562. End Sub
  563. Private Sub LoadTracks()
  564.     Dim i As Integer
  565.     ListView1.ListItems.Clear
  566.     AudioCDWriter1.AudioDeleteAllItems
  567.     i = 0
  568.     Do While i < fNumber
  569.       Set itmX = ListView1.ListItems.Add()
  570.       itmX.Text = i + 1
  571.       itmX.SubItems(1) = FileAsTrack(i)
  572.       AudioCDWriter1.AudioAddItem FilePath(i)
  573.       i = i + 1
  574.     Loop
  575.     shpEstWriteSize.Width = shpDiscSize.Width * ((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024 / 702)
  576.     If shpEstWriteSize.Width > shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left) Then
  577.          shpEstWriteSize.Width = shpDiscSize.Width - (shpEstWriteSize.Left - shpDiscSize.Left)
  578.     End If
  579.     If shpEstWriteSize.Width > shpDiscSize.Width Then
  580.         shpEstWriteSize.Width = shpDiscSize.Width
  581.     End If
  582.         
  583.     Me.Refresh
  584.     stBarAudioWriter.Panels(4).Text = Format((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024, "#0.000") & " MB"
  585. End Sub
  586. Public Sub RefreshDiskInfo()
  587.     AudioCDWriter1.Refresh
  588.     stBarAudioWriter.Panels(3).Text = Format((AudioCDWriter1.cdUsedSpace / 1024) / 1024, "#0.000") & " MB"
  589.     stBarAudioWriter.Panels(4).Text = Format((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024, "#0.000") & " MB"
  590.        
  591.     Select Case AudioCDWriter1.cdType
  592.     Case WRITEONCE:
  593.         stBarAudioWriter.Panels(1).Text = "CD-R, CD-ROM"
  594.     Case ERASABLE:
  595.         stBarAudioWriter.Panels(1).Text = "CD-RW"
  596.     Case RANDOMACCESS
  597.         stBarAudioWriter.Panels(1).Text = "DVD-RAM"
  598.     Case NODISC:
  599.         stBarAudioWriter.Panels(1).Text = "No Disc"
  600.         stBarAudioWriter.Panels(3).Text = "0"
  601.         stBarAudioWriter.Panels(4).Text = "0"
  602.     End Select
  603.     Select Case AudioCDWriter1.cdStatus
  604.     Case BLANK:
  605.         stBarAudioWriter.Panels(2).Text = "Blank"
  606.     Case WRITEBLE:
  607.         stBarAudioWriter.Panels(2).Text = "Open"
  608.     Case NOTWRITEBLE:
  609.         stBarAudioWriter.Panels(2).Text = "Closed"
  610.     Case UNRECOGNIZED:
  611.         stBarAudioWriter.Panels(2).Text = "Unknown"
  612.         stBarAudioWriter.Panels(3).Text = "0"
  613.         stBarAudioWriter.Panels(4).Text = "0"
  614.     End Select
  615.     shpUsedSize.Width = shpDiscSize.Width * ((AudioCDWriter1.cdUsedSpace / 1024) / 1024 / 702)
  616.     If shpUsedSize.Width > shpDiscSize.Width - (shpUsedSize.Left - shpDiscSize.Left) Then
  617.          shpUsedSize.Width = shpDiscSize.Width - (shpUsedSize.Left - shpDiscSize.Left)
  618.     End If
  619.     shpEstWriteSize.Width = shpDiscSize.Width * ((AudioCDWriter1.GetAudioVolumeBurnSize() / 1024) / 1024 / 702)
  620.     If shpEstWriteSize.Width > shpDiscSize.Width Then
  621.         shpEstWriteSize.Width = shpDiscSize.Width
  622.     End If
  623.     Me.Refresh
  624. End Sub
  625. Private Sub AudioCDWriter1_ErrorEx(ByVal errCode As errCode, ByVal errDescr As String)
  626.     If errCode <> DRIVENOTSUPPORTED And errCode <> INITFAILED Then
  627.        MsgBox "Error: " & errCode & ". " & errDescr
  628.     End If
  629.     error = True
  630. End Sub
  631. Private Sub AudioCDWriter1_OperationProgress(ByVal Percent As Integer)
  632.     OperationProgress = True
  633.     If frmTestVBAudioCDWriter.AudioCDWriter1.driveOperation = ERASE_DISC Then
  634.         eraseProgress = Percent
  635.     Else
  636.         frmWrite.OperationProgress (Percent)
  637.     End If
  638. End Sub
  639. Private Sub AudioCDWriter1_MediaChange()
  640.     RefreshDiskInfo
  641. End Sub
  642. 'Private Sub SetDriveWriteMethod()
  643. '    ListView1.ListItems.Clear
  644. '    AudioCDWriter1.DeleteAllFiles
  645. '    fNumber = 0
  646. '    frmWriteMethod.Show 1, Me
  647. '    RefreshDiskInfo
  648. 'End Sub
  649. Private Sub SetNewPattern()
  650.     pattern = ""
  651.     If chkAll.Value = 1 Then
  652.         pattern = "*.*"
  653.     Else
  654.         If chkWMA.Value = 1 Then
  655.             If pattern <> "" Then pattern = pattern & ";"
  656.             pattern = pattern & "*.WMA"
  657.         End If
  658.         If chkOGG.Value = 1 Then
  659.             If pattern <> "" Then pattern = pattern & ";"
  660.             pattern = pattern & "*.OGG"
  661.         End If
  662.         If chkMP3.Value = 1 Then
  663.             If pattern <> "" Then pattern = pattern & ";"
  664.             pattern = pattern & "*.MP3"
  665.         End If
  666.         If chkWAV.Value = 1 Then
  667.             If pattern <> "" Then pattern = pattern & ";"
  668.             pattern = pattern & "*.WAV"
  669.         End If
  670.     End If
  671.     fileSelect.pattern = pattern
  672. End Sub
  673. Private Sub mnuCDDiscInfo_Click()
  674.     frmDiscInfo.Show 1
  675. End Sub
  676. Private Sub mnuCDEject_Click()
  677.     AudioCDWriter1.Eject
  678.     RefreshDiskInfo
  679. End Sub
  680. Private Sub mnuCDRecorderChooseRecorder_Click()
  681.     frmChooseRec.Show 1
  682. End Sub
  683. 'Private Sub mnuCDRecorderSetWriteMethod_Click()
  684. '    frmWriteMethod.Show 1
  685. 'End Sub
  686. Private Sub mnuCDRefresh_Click()
  687.     RefreshDiskInfo
  688. End Sub
  689. Public Sub EraseDisc()
  690.      frmErase.Show 1, Me
  691. End Sub
  692. Public Sub WriteDisc()
  693.     LoadTracks
  694.     frmWrite.LoadSpeedCombo1
  695.     frmWrite.Show 1, Me
  696. End Sub
  697.